<%Set filesys = CreateObject("Scripting.FileSystemObject") if request.querystring("catID")<>"" then strSQL="SELECT * FROM Categories WHERE ID="&request.querystring("CatID")&"" Set rst = CreateObject("ADODB.Recordset") rst.Open strSQL, con, adOpenStatic, adLockReadOnly %>

<%=rst("Category")%>  <%=replace(rst("CatDescription"),chr(13)," ")%>

<%rst.close end if%>

<< click to go back to products list

<%if request.querystring("CatID")<>6 then%> Save up to 75% on your Lighting costs! <%else%> Save up to 33% on your Heating and Cooling costs! <%end if%> <% 'ORDERING if request.form("orderby")<>"" then 'Order Grabbed from link orderby=request.form("orderby") else 'Default Order By Field orderby="" end if ''END MAY WANT TO ADD SCRIPTS if request.querystring("catID")<>"" then addsql=" AND (Cat_ID="&request.querystring("catID")&" OR Cat2_ID="&request.querystring("catID")&")" else addsql=" AND int(Cat_ID)=0" end if if request.form("partnum")<>"" then addsql=" AND PartNum LIKE '%"&request.form("partnum")&"%'" 'PASTE STRSQL strsql="SELECT ID,PartNum,ProductName,TotalQuantity,Descr,Amount,Price,ItemCost,Cat_ID,Deleted,DropType_ID,DropChoice_IDs FROM Products WHERE GroupProdID=0 AND Deleted=0" if addsql<>"" then strSQL=strSQL&" "&addsql 'if orderby<>"" then strSQL=strSQL&" Order By "&orderby strSQL=strSQL&" Order By PartNum" Set rsttable = CreateObject("ADODB.Recordset") rsttable.Open strSQL, con, adOpenStatic, adLockReadOnly if not rsttable.eof then%> <%'DISPLAY COLUMN FIELDS%> <% 'Get The Dimensions Set fs= CreateObject("Scripting.FileSystemObject") do%> <%rsttable.movenext if not rsttable.eof then%> <% end if loop until rsttable.eof%> " name="PID"> <%if filesys.FileExists(server.mappath("/Products/"&replace(rsttable("partnum"),"/","")&".jpg")) Then%> .jpg" alt="<%=rsttable("ProductName")%> - <%=rsttable("descr")%>" border="1" style="border-color:#d7d7d7"> <%else%> sorry, no picture available <%end if%> <%=rsttable("ProductName")%>    ( Part# <%=rsttable("PartNum")%> )<%if request.querystring("CatID")<>6 then%>   " class="gelink" target="<%=rsttable("PartNum")%>">VIEW INFORMATION ON GENERAL ELECTRIC SITE<%end if%> <%=replace(replace(rsttable("Descr"),chr(13)," ")," "&chr(9),":   ")%> <%if request.querystring("CatID")<>6 then%>| UNIT PRICE: <%=formatcurrency(rsttable("Price")/rsttable("TotalQuantity"))%> |       <%=rsttable("TotalQuantity")%> UNITS PER CASE PRICE: <%=formatcurrency(rsttable("Price"))%>    <%else%>PRICE: <%=formatcurrency(rsttable("Price"))%>    <%end if%> <%else%> Sorry, No Items Entered Yet <%end if%> <%rsttable.close%>